home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / pc / dos / sri / dtp / moray / polyscn / prevuscn.pi
Text File  |  1998-04-15  |  2KB  |  131 lines
  1. //
  2. // Base scene for Preview
  3. // Moray V2.0 (c) SoftTronics, '96
  4. //
  5. // Avoid adding any include files to this scene. The rendering of
  6. // this file must fly!
  7. //
  8.  
  9. viewpoint {  //  Camera PreviewCam
  10.   from      <0.00, -8.500, 3>
  11.   at        <0.000, -0.100, 0.000>
  12.   up        <0.0,     0.0,  1.0>  // Where Z is up
  13.   angle     30*(3/4)
  14.   aspect -4/3
  15. }
  16.  
  17. // *******  L I G H T S *******
  18.  
  19. light    // Light1
  20.   <1.000, 1.000, 1.000>,
  21.   <5.820, -8.500, 6.316>
  22.  
  23.  
  24. light    // Light2
  25.   <0.400, 0.400, 0.400>,
  26.   <5.820, -1.500, 3>
  27.  
  28.  
  29. define FloorTxtr
  30. texture {
  31.   checker
  32.     texture {
  33.       surface {
  34.         color <1.000, 1.000, 1.000>
  35.         diffuse 0.800
  36.         ambient 0.300
  37.       }
  38.     },
  39.     texture {
  40.       surface {
  41.         color <0.100, 0.100, 0.100>
  42.         diffuse 0.800
  43.         ambient 0.300
  44.       }
  45.     }
  46. }
  47.  
  48. define BackdropTxtr
  49. texture {
  50.   checker
  51.     texture {
  52.       surface {
  53.         color <1.000, 1.000, 1.000>
  54.         diffuse 0.800
  55.         ambient 0.300
  56.       }
  57.     },
  58.     texture {
  59.       surface {
  60.         color <0.100, 0.100, 0.100>
  61.         diffuse 0.800
  62.         ambient 0.300
  63.       }
  64.     }
  65.   scale <1000,0.2,0.2>
  66.   translate <500,0,0>
  67. }
  68.  
  69. // ********  O B J E C T S *******
  70.  
  71. define Floor
  72. object {
  73.   polynomial z+1
  74.   FloorTxtr
  75. }
  76.  
  77. define BackDrop
  78. object {
  79.   polynomial y-2.5
  80.   BackdropTxtr
  81. }
  82.  
  83. define PreviewStone
  84. object {
  85.   object {
  86.     object { box    <-1,-1,-1>, <1,1,1> }
  87.     + object { sphere <0,0,1.75>, 1 }
  88.     PreviewTexture
  89.     scale <0.6,0.6,0.6>
  90.     translate <0,0,-0.399>
  91.     rotate <0,0,60>
  92.   }
  93. }
  94.  
  95. define PreviewSphere
  96. object {
  97.   sphere  <0,0,0>,1
  98.   PreviewTexture
  99. }
  100.  
  101. define PreviewCube
  102. object {
  103.   box  <-1,-1,-1>,<1,1,1>
  104.   PreviewTexture
  105.   rotate <0,0,60>
  106. }
  107.  
  108. define PreviewPlane
  109. object {
  110.   polynomial z
  111.   PreviewTexture
  112. }
  113.  
  114. define PreviewDisc
  115. object {
  116.   disc  <0,0,0>, <0,0,1> , 1.0
  117.   PreviewTexture
  118.   scale <1.5,1.5,1.5>
  119. }
  120.  
  121. define PreviewCylinder
  122. object {
  123.   object { cylinder <0,0,1.001>, <0,0,-0.001>, 1 }
  124.   * object { disc <0,0,0>, <0,0,-1>,1.001 }
  125.   * object { disc <0,0,1>, <0,0,1>,1.001 }
  126.   PreviewTexture
  127.   scale <1,1,2>
  128.   translate <0,0,-1>
  129. }
  130.  
  131.